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# ! /usr/bin/perl 
use DBI; 

$myurl = ■ http : / /MoneyOrdersOnline . com/a * ; 
&main; 



sub mairi{ 

$dbh = DBI->connec t ( ' DBI : mysql : moneyordersonline : localhos t ' , ' moo ' , ' ' , 
(RaiseError => 0, PrintError => 0}); 
unless ($dbh) { 

print_f ile_hinted ( ' techdif f . html ' , {error => 'cannot access 
database 1 } ) ; 

return; } 

&go ; 

$dbh->disconnect ; } 



sub go { 

my($query) ; 

$query = parse_query ( ) ; 
O if ( $query-> {action} eq 
( $query-> {action} eq 
( $query-> {action} eq 
( $query-> {action} eq 
( $query-> { trans_approved} ) 
($query->{ secret} ) 



<*Q if 
SI if 

=F if 
h if 
L\ if 
retSfrn; } 



lookup_ebay* ) 
have_inf o ' ) 
choice ' ) 
download ' ) 



{ lookup_ebay ( $query ) ; return;} 
{have__inf o ( $query ) ; return; } 
{choice ( $query) ; return; } 

{download ( $query) ; return; } 
{from_mol ($query) ; return; } 

{from_email ($query) ; 



$query-> {error} .= "<BR>unknown action [ $query-> { action} ] \n " ; 



print__f ile__hinted ( ' techdif f . html * , $query) ; } 



1 A nice pretty 



sulLi lookup_ebay { 

[|| my($query) = @_; 

q tt Here is were we look up the ebay item. . . 
D@$query{qw (error description buyer price seller)} = 
retrieve_ebay_inf o ( $query-> { itemno} ) ; 

#@$query{qw (error description buyer price seller) } = ( ' 1 
widget 1 , ' tim@nerds . com ' , '33.22', 'brianvon@fpga.com'); 

# If the buyer or seller looks like an email address, it probably is... 
@$query {b_email , b_email2} = @$query {buyer , buyer} if $query-> {buyer } 
[0-9\-\ . \_a-z] +@ [0-9\-\ . \.a-z]+$/; 

@$query { s_email , s„email2} = @$query{ seller , seller} if $query-> { seller } 
=~ /~ [0-9\-\ . \_a-z] +@[0-9\-\ . \_a-z] + $/; 

print_f ile_hinted ( 1 moreinf o . html ' , $query) ;} 



sub have_info{ 

my($query) = @_; 
my ($sth, $n) ; 

tf Validate the information 
my ( $ error ) ; 

for (qw (price shipping 

b__fname b„ lname b_address b_city fo_state b__zipcode 
s^fname s_lname s_address s_city s__state s__zipcode) ) 
{ $error .= " <LI>Specif y the $__" unless $query-> { $_} ; 

$error s/\bb_/buyer /g; 
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$error = ~ s/mname/middle name/g; 
$error =~ s/lname/last name/g; 

if ( $query-> {b_email } && $query-> {b_email } ne $query-> {b_email2 } ) 

{ $error .= "<LI>The buyer's email addresses must match"; } 

if ( $query-> { s_email } && $query-> { s_email } ne $query-> { s_email2 } ) 

{ $error . = " <LI>The seller's email addresses must match"; } 

if ($error) { 

$query-> {error} = "Correct the following errors : <UL>$error</UL> " ; 
print_f ile_hinted ( 'moreinfo.html' , $query) ; 
return; } 

# Calculate fee. . . 

$query-> {amount } = $query-> {price} + $query-> { shipping} ; 
$query->{f ee} = sprintf ( " %0 . 2 f " , ( $query-> {amount } * .04) - 0.01); 
$query->{f ee} ■= sprintf (" %0 . 2 f " , ( $query-> { f ee} < 1.00) ? 0.99 : $query- 
>{fee}) ; 

$query-> { total } = $query-> {amount} + $query-> { f ee} ; 

# Create a new check number 
^ my ( $checkno) ; 

# Pick a random transaction number and make sure it isn't used... 
J! do{ $checkno = int (rand(8999999) ) + 1000000; 

$n = $dbh->do (' select NULL from transaction where transnumber = ?', 
y- undef, $checkno) ; } 

while ($n >= 1) ; 
h] $query-> { checkno} = $checkno; 

y! $sth = $dbh->prepare (" replace into transaction set" . 

" modified = UNIX_TIMESTAMP ( ) , transnumber = ? , " . 
M= " b_email = ?, b_f name = ?, b_mname = ? , b__lname = ?, 

Klladdress = ?, b„city = ?, b_state = ?, b_zipcode = ? , 11 . 

" s_email = ? , s_f name = ? , s_mname - ? , s_lname = ? , 
s^Jaddress = ?, s_city = ?, s_state = ? t s_zipcode - ? t " . 
~ " description = ?, itemno = ?, notify = ?, price = 100 * 

shipping = 100 * ?, fee = 100 * ?," . 

" b_secret = ?, s_secret = ? " ) ; 
$n = $sth-> execute (@$query{qw (checkno 

b_email b_fname b_mname b_lname b_address b„city b„state 

b_zipcode 

s_email s_fname s„mname s„lname s_address s_city s — state 

s_zipcode 

description itemno notify price shipping fee b_secret 

s_secret ) } ) ; 

if ($n != 1) { 

$query-> {error} .= "<BR>in have_info: select transaction n=[$n]\n"; 
print_f ile_hinted ( 'techdiff.html' , $query) ; 
return; } 

$query-> { image} = "http : / /moneyordersonline . com/ check /check . cgi / . gif " 

. "?checkno=" . URL :: encode ( $query-> {checkno} ) 
. "5citemno=" . URL :: encode ( $query-> { itemno} ) 
. "&payee=" . URL : : encode ( " @$query { s„f name , 

s_lname} " ) 

. "&amount=" . URL: : encode ( $query-> {amount } ) ; 
print„f ile_hinted ( ' howpay . html ■ , $query ) ; } 
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my $checkno = $query->{ 'checkno' } || $query-> { ' user2 ' } ; 
my $itemno = $query-> { ' i temno ' } || $query-> { ' user3 1 } ; 
unless ($checkno) { 

$query-> { error } "<BR>check number is missing\n" ; 

print_f ile_hinted ( 'techdiff.html' , $query) ; 

return; } 

if ( $query-> { trans_approved} ne 'APPROVED') { 

$query-> {error } .= " <BR> transaction was not approved\n"; 
print_f ile_hinted ( 'techdiff.html' , $query) ; 
return; } 

my ($sth, $n) ; 

$sth = $dbh->prepare ( "select" . 

" b_email, b_fname, b_mname , b_lname, b_address, b_city, b_state, 
b_zipcode, " . 

" s_email, s_fname, s_mname / s_lname, s_address, s__city, s_state / 
s_zipcode, " . 

" description, itemno, notify , price/100 , shipping/ 100 , fee/100," . 
„ " b_secret, s__secret" . 

" from transaction where transnumber = ?"); 
Q unless ($sth) { 

r $query-> { error } .= "<BR>in f rom_mol : prepare select transaction 

ffLiled: @{ [DBI->errstr] } \n" ; 

print_f ile_hinted ( ' techdif f . html ' , $query ) ; 
yj return; } 

Cm $n = $sth->execute ( $checkno) ; 
if ($n != 1) 

{ $query-> { error } .= "<BR>select transaction n=[$n]\n n ; 
print_f ile_Jiinted ( 1 techdi f f . html ' , $query) ; 
rz! return; } 

%1 my ( $data) ; 

S @$data{qw( b_email b_fname b__mname b„lname b_address b_city b_state 



b_zipcode 
s_zipcode 



s_email s_fname s_mname s_lname s_address s_city s_state 



description itemno notify price shipping fee 
b_secret s_secret 
) } = $sth->f etchrow_array ; 
$sth->f inish; 

if ($data->{itemno} != $itemno) 

{ $query-> { error } .= "<BR>wrong itemno\n" ; 

print__f ile__hinted ( 'techdiff.html' , $query) ; 

return; } 

$data-> {amount } = $data-> {price} + $data-> { shipping} ; 
$data-> { total } = $data-> {amount } + $data-> { f ee} ; 
if ( $data-> { total } != $query-> { trans__amount } ) 

{ $query-> { error } .= "<BR>in f rom_mol : transaction amount is wrong 

( $data-> { total } vs . $query-> { trans_amount } \n" ; 

print_f ile_hinted (' techdif f . html ' , $query) ; 

return; } 
$data-> {b_email } = $query-> { email } ; 
$data-> {b__f name} = $query-> { f irstname} ; 
$data-> {b_lname} = $query-> { las tname} ; 



4/10 



$data->{b_city} = $query-> { ci ty } ; 

$data-> {b_state} = $query-> { state} ; 

$data-> {b_zipcode} = $query-> { zip} ; 

$data->{status} = 'PAID CC ' ; 

$data-> {cc^type} = $query-> {cardtype} ; 

$data-> (cc_number } = $query- > { card_number } ; 

$data-> {cc_exp} = " $ qu e r y - > { exp_mon } /$query-> { exp_year } " ; 
$data->{b_secret} = int (rand (89999) + 10000); 
$data->{s_secret} = int (rand ( 89999 ) + 10000); 
$data-> {checkno} = $checkno ; 
if (0) 

{ &print_header ; 

print "<P>in fronwnol : data: \n" ; 
for (sort keys %$data) 

{ print "<BR>   $_ -> $data-> { $_} \n " ; } } 

$sth = $dbh->prepare ( "update transaction set " . 

" modified = UNIX_TIMESTAMP ( ) , " . 
^ " b_emai 1 = ?, b_f name = ? , b_mname = ?, b_lname = ?, 

bjgddress = ? , b_city = ? , b_state = ? , b_zipcode = ? , " . 
r\ " status = ? , cc_type = ? , cc__number = ? , cc_exp = ? , " . 

^ " b_secret = ?, s_secret = ? where transnumber = ?"); 

h£ unless ($sth) 

ljl { $query-> { error} . = " <BR>in from„mol : prepare update transaction 
failed: @{ [DBI->errstr] }\n" ; 
ffl print__f ile_hinted ( 'techdiff.html' , $query) ; 

s return; } 

H $n = $sth->execute ( @$data {qw ( b_email b_f name b_mname b_lname 

bjj^ddress b_city b_state b_zipcode 

TZ status cc__type cc_number 

cpi_exp 

~ b_secret s_secret checkno 

U ) } ) ; 

if ($n != 1) 

{ $query->{ error} .= " <BR>in f rom_mol : execute failed n=[$n]\n" ; 

print_f ile_hinted ( 1 techdif f . html ' , $query) ; 

return; } 
my ($m, $n) ; 

if ($data->{notify} eq 'yes') { 
$ m = << • EOF ' ; 

From: MoneyOrdersOnline . com <Fulf i 1 lment@MoneyOrder sOnl ine . com> 
To : {b_email} 

Subject: Money Order for eBay Item #{itemno} 
To Money Orders Online.com Customer: 

Your purchase of a money order in the amount of ${ amount} is complete. 
The money order has been delivered to the seller {seller}. Including 
the processing fee of ${fee}, a total amount of ${total} has been 
charged to your {cc_type} credit card { cc_number } . 

If for some reason you wish to cancel this money order, and the seller 
has not yet retrieved the money order, you can go to 
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to cancel. 

Thank you for using MoneyOrdersOnline.com! 
EOF 

$n = « ' EOF ' ; 

From: MoneyOrdersOnline . com <Fulf i 1 lmen t@MoneyOrder sOnl ine . com> 
To: {s_email} 

Subject: Money Order for eBay Item #{itemno} 

We have been authorized to send you a money order on behalf of eBay 
user {buyer} for eBay item number #{itemno}. The amount of the money 
order is ${amount}. You can go to the following website and print the 
money order instantly on your own PC-compatible printer on plain paper 
and cash it just the same way as any other money order. 

{ (myurl } } /process . cgi ?itemno = { i temno} &checkno= {checkno } &secret= { s_secret } 

if; you do not have a PC-compatible printer, go to the same site and request 
thfe money order be sent to you via first-class mail. 

Bjk the way, you can become a Money Orders Online PREFFERRED SELLER and get 
fgee money order stock and address labels just for letting people know that 
ygu accept money orders online as payment for your auctioned items. Go to 
http: //MoneyOrdersOnline . com/pref erred/intro . html 

fpr more information. Being a preferred seller makes shipping your items a 
sUhp, with automatically printed address labels, official money order 
stock, and even preprinted postage with adhesive backing! Streamline your 
logistics and shipping operations by joining today! 



From: MoneyOrdersOnline . com <Fulf illment@MoneyOrdersOnline . com> 
To: {b_email} 

Subject: Money Order for eBay Item #{itemno} 
To Money Orders Online.com Customer: 

Your purchase of a money order in the amount of ${ amount} is complete. 
Including the processing fee of ${fee}, a total amount of ${ total} has 
been charged to your {cc_type} credit card {cc_number} . 

You have requested local delivery of your money order. Please go to 
the following URL to retrieve and print your money order. Please note 
that the money order can be printed only on PC-compatible computers. 

{ {myurl} } /process . cgi ?itemno={i temno }&checkno={ checkno } &secret= {b_secret } 



E^fe 1 



} 



else { 
$m = << 1 EOF 1 ; 



Thank you for using MoneyOrdersOnline.com! 
EOF 

} 
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sub from__email{ 

my ($ query) = @_; 

my $data = lookup ( [qw ( status b_fname b_lname b__secret s__fname s_lname 
s_secret itemno price shipping fee)], $query, 'download' ) ; 
return unless $data; 

@$data{checkno, itemno} = @$query {checkno, itemno}; 
if ($data->{status} = ~ / A PRINTED \ b / ) 

{ $query-> {error } .= " <BR>Money order was already $query { status } \n" ; 

print_f ile_hinted (' techdif f . html ' , $query) ; 

return; } 
my $who = $data-> {who} ; 
unless ($who) 

{ $query->{ error} .= "<BR>in from_email: Logic error: no who\n" ; 
print_f ile_hinted ( 1 techdif f . html ' , $query) ; 
return; } 

<aaa $fn = ' click-buyer . html ' if $who eq 'buyer*; 

$fn = ' click-seller . html * if $who eq 1 seller' ; 
r\ $data-> { image} = " http : / /moneyorder son line . com/ check/ check . cgi / . gif " 
J* . "?checkno=" . URL :: encode ( $data-> { checkno} ) 

ZI . "&itemno=" . URL :: encode ( $data-> { itemno } ) 

u, . "&payee=" . URL: : encode ( " @$data { s_f name , 

srJLname} " ) 

£Fi . "&amount=" . URL :: encode ( $data-> {amount }) ; 

= print_f ile_hinted ( $f n, $data) ; } 

sUb choice { 
fZ my($query) = @__; 

^ my $data = lookup ( [qw ( status s„fname s„lname price shipping fee b_secret 
s^ecret) ] , $query, 'choice'); 
^ return unless $data; 

@$data{disp, secret} = @$query {disp, secret} ; 
if (0) 

{ &print_header ; 

print " status=$data-> {status} secret=$data-> {secret} \n" ; 
return; } 

if ($data->{status} =- /~PRINTED\b/ ) 
{ $query-> { error } .= "<BR>Money order was already $query{ status } \n " ; 
print_f ile_hinted ( 'techdiff.html* , $query) ; 
return; } 

if ( $data-> {who} eq 'buyer* && $data->{disp} eq 'p-b-mail* 

|| $data->{who} eq 'seller' $data-> {disp} eq 'p-s-mail') 

{ print "Content- type : text /html \n\ncheck will be mailed to $data- 
>{who} \n" ; 

return; } 

if ( $data-> {who} eq 'seller' && $data-> {disp} eq ' p-s-decline ' ) 
{ print "Content- type : text /html \n\nBuyer will be notified that you 
declined" ; 

return; } 

print„f ile_hinted ( ' download . html ' , $data) ; } 
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my $data = lookup ( [qw (b_f name b___lname b_secret s_fname s__lname s^secret 
itemno price shipping fee)], $query, 'download'); 
return unless $data; 
my $who = $data-> {who} ; 
unless ($who) 

{ $query-> {error} .= "<BR>in download: Logic error: no who 
secret=$query-> { secret} \n" ; 

print_f ile_hinted (' techdif f . html ' , $query) ; 
return; } 

if ($who eq 'buyer' && $query-> {disp} eq 'p-b-mail* 

|| $who eq 'seller' && $query-> {disp} eq 'p-s-print ' ) 
{ $payee = " @$data {qw ( s__f name s_lname) } " ; } 
elsif ($who eq 'buyer' && $query-> {disp} eq ' p-b-deposi t ' ) 
{ $payee = " @$ data {qw (b„f name b_lname) } " ; } 

else { $query->{error} .= "<BR>in download: who=$who disp=$query-> {disp} 
payee=$payee\n" ; 

prints f ile_hinted ( 'techdiff.html' , $query) ; 
return; } 
my $memo = "eBay item #$data-> { itemno} " ; 
Cj my $echeck = load__f ile ( ' echeck . ni f ' ) ; 

my $download = $echeck . join(';', today () , $payee, $data-> {amount } , 
$ii^mo, $data-> { checkno} , ' * , $secret) ; 

Ll print "Content- type : application/x-nicotine\nContent- length : 
@ (jjlength ( $download) ] } \n\n" , $download; } 

sub lookup { 

my($fields, $query, $where) = @__; 
W my ($f ) ; 
H for (@$fields) 
2 { $f .= ' , ' if $f ; 
S $f .= "$_" ; 

^ $f .= '/100' if / A (price) shipping) fee) $/; } 

if (0) 

{ &print_header ; 

print " <BR>f ields=@$ fields \n " ; 

print "<BR>select $f from transaction where transnumber = ? and 
itemno = ?\n" ; 

return; } 

my $sth = $dbh->prepare (" select $f from transaction where transnumber = 
? and itemno = ?" ); 
unless ($sth) 

{ $query-> { error } .= "<BR>in $where: prepare select transaction 
failed: @{ [DBI->errstr ] } \n" ; 

print_f ile„hinted (' techdif f . html ' , $query) ; 
return; } 

my $n = $sth->execute ( @$query{ checkno , itemno}); 
if ($n != 1) 

{ $query->{error} .= "<BR>in $where : select transaction n=[$n] 
[@$query {checkno, itemno} ] \n" ; 

print__f ile__hinted (' techdif f . html ' , $query) ; 
return; } 
my ( $data) ; 
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@$data { checkno , itemno} = @$query (checkno, itemno} ; 

$data-> {amount } = sprintf ( " % . 2f " , $data-> {price} + $data-> { shipping} ) if 
exists $data-> {price} && exists $data-> { shipping} ; 

$data->{ total} = sprintf ("%. 2 f " , $data->{amount} + $data-> { f ee} ) if 
exists $data-> {amount } && exists $data-> { f ee} ; 

$data->{who} = •buyer 1 if $query-> {' secret ' } eq $data-> { ' b_secret ' } ; 

$data->{who} = 'seller' if $query-> { 1 secret ' } eq $data-> { * s_secret ' } ; 

$data; } 

sub isOK{ 

return $_[0] =~ 

/^timkay\@ | A brianvon\@ | \@moneyordersonline . com$ | \@nerds . com$/i ; } 

sub sendmail { 

my($message) = @_; 

my($to) = $message =- / A To:\s+(.*?)\n/im; 
local (*S) ; 

unless (isOK($to) && open(S, " | /usr/lib/sendmail -t")) 
S { print "<BR>E-mail to $to failed\n"; 

return 1; } 
^ print S $message; 
:% close (S) ; 

&print_header ; print "<BR>Mail sent to $to\n" ;} 

suite retrieve_ebay_inf o { 
s my ($i tern) = @_; 

h& my($html / $error, $description, $buyer, $left, $price, $ quant i ty ) ; 
FU $item =- tr/0-9//cd; 

M return ('Enter a vaild item number.') unless $item = ~ ( \d{ 8 , 10} ) $/ ; 

Ul print "<BR>get $i tem. .. http :/ /cgi . ebay . com/aw- 
cqBI/eBaylSAPI . dll?Mf cISAPICommand=ViewI tem&i tem= " . URL: : encode ( $i tern) . 
" \W " ; 

$html = URL : : get ( * http : / /cgi . ebay . com/aw- 
cgi/eBaylSAPI . dll?Mf c I SAP ICommand= Vi ewl t em& i t em= ' . URL: : encode ( $i tern) ) ; 
Sprint " <BR>HTML : t [ [ $html ] ] ] \n " ; 

($description) = $html = ~ /bgcolor= " #99CCCC ">.* ?<b> (.*?)< \ /b>/ is ; 

$error = "Item #$item not found." unless $error || $description ; 

($left) = $html = ~ /<font . *?>Time 
lef t<\/fontx\/td> . *?<bxfont .*?>(. *?)<\/fontx\/b>/is; 

$error = 'The auction has not ended. 1 unless $error || $left /auction 
has ended/is; 

($quantity) - $html =- 
/<font. * ?>Quanti ty<\ / f ontx \ / td> . *?<b> ( . *?) <\/b>/is; 

if ($quantity > 1) 

{ ($price) = $html =-* 

/<font . *?>Lowest<\/f ontx\/td> . *?<b> { . *?) <\/b>/is; 

if ($price) { $price = ~ s/^\$//; } 

else 

{ $error = 'Item did not sell' unless $error; 
($price) = $html =- /<f ont . * ?>Starts 
at<\/fontx\/td> . *?<b> ( . *?) <\/b>/is; } 
unless ($error) 
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($seller) = $html =- 
/<font. *?>Seller<\/fontx\/td>. *?<b><a. *?>(.*?) <\ /a><\ /b>/is ; 
} else { 

($price) = $html =-~ 
/<font . * ?>Current ly< \ / f ontx \ / td> . *?<b> ( . *? ) <\/b>/is; 
if ($price) 

{ $price = ~ s/~\$//; 

} else 

{ $error = 'Item did not sell' unless $error; 

($price) = $html =~ /<f ont . * ?>Star ts 
at<\/font><\/td> . *?<b> ( . *?) <\/b>/is; } 
unless ($error) 

{ ($buyer) = $html =~ /<f ont . * ?>High 

Bid<\/fontx\/td>. *?<b><a. *?>(.*?) <\ /a><\ /b>/is ; 

($seller) = $html =~ /<f ont . * ?>Seller 
\ (Rating\) <\/f ontx\/td> . *?<b><a. *?> ( . * ? ) <\ /a><\ /b>/is ; } 
($error, $descript ion, $buyer, $price, $seller) ; } 

suEjf print_f ile_hinted{ 
^ my($fn, $data) = @_; 
_^ &print_header ; 

u print subst ( load_f ile ( $f n) , $data);} 

subj print_header { 

m print "Content- type : text/html\n\n" unless Sheader printed; 
5 $header_printed++ ; } 

suS load_file{ 
ft my($fn) = 

my ( $s) ; 
y local ( *IN) ; 
^ if (open (IN, $fn) ) 

{ read(IN, $s, -s $fn) ; 

close (IN) ; } 
$s | | "Technical dif f iculties\n" ; } 

sub subst { 

my($s, $data) = @_; 

$data->{method} = 'POST'; 

$s =- s/ {{(.*?)}} /eval ( "\$$1" ) /gie; 

$s =~ s/" {(.*?)} "/quote($data->{$l} ) /gie; 

$s =~ s /{-(.*?) } /URL : : encode ( $data-> { $ 1 } ) / gie ; 

$s =~ s/{ ( . *?) }/$data->{$l}/gi; 

$s;} 

sub quote { 

my($s) = @_; 

$s =~ s/([\\"])/\\$l/g; 

" \ n $s\" ";} 



sub parse„query{ 

my($content ( $query) ; 
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{ my($key, $val) = (.+?)=(.*)$/ ; 
next unless $key; 
$key =~ s/\+/ /g; 

$key =~ s/%( [0-9a-z] [0-9a-z] ) /pack(H2, $1) /ige; 
$val =~ s/\+/ /g; 

$val =~ s/%( [0-9a-z] [0-9a-z] ) /pack(H2, $1) /ige; 
$val =~ s/~\s|\s$//g; 
$query->{$key} = $val; } 
if (0) 

{ &print__header ; 

print "<P>In parse.query: query:\n M ; 
for (sort keys %$query) 

{print " <BR>   $_ --> $query-> { $_} \n " ; } } 
$query; } 

sub today { 

my (@mon) = qw( January February March April May June July August 
September October November December) ; 

my ($sec, $min, $hour, $mday, $mon / $year, $wday, $yday, $isdst) 
loaaltime ( time) ; 

jf my $today = sprintf "%s %d, %d" , $mon[$mon] / $mday, 1900 + $year 
jLl $today;} 

package URL; 
u£§ Socket; 

si£b get{ 

^ mytSremote, $path) = $_[0] =~ /~ (?: http : \ / \ /)?(.+?)( \ /.*)?[ \r\n] * 
fi: my($buf , $ret) ; 

MJ #print "<BR>urlget [$remote] [$path]\n"; 

zr my($name, $aliases, $addrtype, $length, $remoteaddr) = 
ge t ho s tbyname ($ remote) ; 

#print "<BR>found " , join( ' . ' , unpack(C4, $remoteaddr) ) , " \n" ; 
socket(S, PF_INET, SOCK_STREAM , 6) or print "<BR>socket: $!\n"; 
#print "<BR>connecting to $remote. . .\n" ; 

my $sin = sockaddr_in ( 80 , inet_aton ( $remote) ) ; 

connect (S, $sin) or print "<BR>connect: $!\n" ; 
#print " <BR>Connected to $remote\n" ; 
select (S); $| =1; select ( STDOUT) ; 
print S "GET $path\r\n"; 
while (sysread(S, $buf, 10240)) 

{ $ret .= $buf; } 
close (S) ; 
$ret;} 

sub encode { 

my ($z) = @_; 

$z s/ ( [=\?\&\+;<>] ) / '% ' .unpack(H2, $1) /ge; 

$z =~ tr/ /+/; 

$z;} 



tttttt Local Variables: *** 



